generateRCComputerList <- function(redList,clustList){
	
	redListLen <- length(redList)
	clustListLen <- length(clustList)
	
	gri <- expand.grid(1:redListLen, 1:clustListLen)
	
	gridRowsNum <- nrow(gri)
	outList <- lapply(1:gridRowsNum,FUN=function(gridRow,gr){
				new("ReduceClustListComputer",
						redList[[ as.numeric(gr[gridRow,][1]) ]],
						clustList[[ as.numeric(gr[gridRow,][2]) ]]
						)
			},gri)
}